home *** CD-ROM | disk | FTP | other *** search
/ Study Abroad in Canada / Study Abroad in Canada.iso / pc / open.dxr / ì‡ë†_49.ls < prev    next >
Encoding:
Text File  |  2000-08-21  |  763 b   |  41 lines
  1. on enterFrame me
  2.   puppetSprite(7, 1)
  3.   level = the soundLevel
  4.   case level of
  5.     0:
  6.       sprite(7).member = 50
  7.     1, 2:
  8.       sprite(7).member = 67
  9.     3, 4:
  10.       sprite(7).member = 68
  11.     5, 6:
  12.       sprite(7).member = 69
  13.     7:
  14.       sprite(7).member = 70
  15.   end case
  16. end
  17.  
  18. on mouseDown
  19.   puppetSound(2, member(7, "ﾃ｢ﾃｾ"))
  20.   puppetSprite(6, 1)
  21.   sprite(6).member = 66
  22.   level = the soundLevel
  23.   case level of
  24.     7:
  25.       sprite(7).member = 50
  26.       set the soundLevel to 0
  27.     0:
  28.       sprite(7).member = 67
  29.       set the soundLevel to 2
  30.     1, 2:
  31.       sprite(7).member = 68
  32.       set the soundLevel to 4
  33.     3, 4:
  34.       sprite(7).member = 69
  35.       set the soundLevel to 6
  36.     5, 6:
  37.       sprite(7).member = 70
  38.       set the soundLevel to 7
  39.   end case
  40. end
  41.